﻿
Imports Moca.Db

Namespace Db.Impl

    ''' <summary>
	''' DaoTest データアクセス
	''' </summary>
    ''' <remarks></remarks>
    Public Class DaoTest
		Inherits AbstractDao
		Implements IDaoTest

		Public Function SelectSQL(sql As String, values As IList(Of KeyValuePair(Of String, Object))) As System.Data.DataTable Implements IDaoTest.SelectSQL
			Using cmd As IDbCommandSelect = CreateCommandSelect(sql)
				For Each val As KeyValuePair(Of String, Object) In values
					cmd.SetParameter(val.Key, val.Value)
				Next

				cmd.Execute()
				Return cmd.Result1stTable
			End Using
		End Function

	End Class

End Namespace
